home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
lang_c
/
mikecom
/
lites2.inc
< prev
next >
Wrap
Text File
|
1987-05-15
|
1KB
|
53 lines
localproc rxlites
push ds
push ax
push bx
push cx
inc rxadr
inc rxadr
cmp rxadr,3792
jna rxlt_contin
mov rxadr,3741
xor rxatrib,Vid_RX
rxlt_contin:
mov cl,rxatrib
mov bx,rxadr
mov ax,video_seg
mov ds,ax
assume ds:video_seg
mov [bx],cl ;code if using on screen TX/RX lights
pop cx
pop bx
pop ax
pop ds
assume ds:DGROUP
ret
rxlites endp
localproc txlites
push ds
push ax
push bx
push cx
inc txadr
inc txadr
cmp txadr,3952
jna txlt_contin
mov txadr,3901
xor txatrib,Vid_TX
txlt_contin:
mov cl,txatrib
mov bx,txadr
mov ax,video_seg
mov ds,ax
assume ds:video_seg
mov [bx],cl ;code if using on screen TX/RX lights
pop cx
pop bx
pop ax
pop ds
assume ds:DGROUP
ret
txlites endp